home *** CD-ROM | disk | FTP | other *** search
/ Mesolore / Mesolore - Disc 2.iso / mac / data / Selden.dir / 00052_Script_52 < prev    next >
Text File  |  2001-03-05  |  2KB  |  67 lines
  1. on mouseDown
  2.   --  set clickline = flashline()
  3.   set clickline = the mouseLine
  4.   case clickline of
  5.     1,2: showtrans "using codices"
  6.     3:goto "selden_layout","tutorial"
  7.     4:goto 173,"tutorial"
  8.     5,6:goto "selden_anim","entries" 
  9.       
  10.     10,11:goto "Codices_List","tutorial"
  11.     12,13:goto "Mixteca_List","tutorial"
  12.       
  13.     16:goto "Action_List","tutorial"
  14.     17:goto "Land_List","tutorial"
  15.     18:goto "Keeping_List","tutorial"
  16.     19:goto "Body_List","tutorial"
  17.     20:goto "Lyrics_List","tutorial"
  18.       
  19.     23:goto "mixtecazoom","atlas"
  20.       findTown "Andua-S AndrΘs",415,350
  21.     24:goto "mixtecazoom","atlas"
  22.       findTown "Apoala-Santiago",466,271
  23.     25:goto "mixtecazoom","atlas"
  24.       findTown "Chalcatongo-Sta Marφa",325,488
  25.     26:goto "mixtecazoom","atlas"
  26.       findTown "Cuilapan", 598,504
  27.     27:goto "mixtecazoom","atlas"
  28.       findTown "Flints",417,429
  29.     28:goto "mixtecazoom","atlas"
  30.       findTown "Hua",433,409
  31.     29:goto "mixtecazoom","atlas"
  32.       findTown "Jaltepec-Magdalena",437,389
  33.     30:goto "mixtecazoom","atlas"
  34.       findTown "Suchixtlßn-Sta Marφa",408,326
  35.     31:goto "mixtecazoom","atlas"
  36.       findTown "Teozacoalco",417,493
  37.     32:goto "mixtecazoom","atlas"
  38.       findTown "Tequixtepec2",285,131
  39.     33:goto "mixtecazoom","atlas"
  40.       findTown "Tilantongo",400,400
  41.     34:goto "mixtecazoom","atlas"
  42.       findTown "Tiyuqu",612,479
  43.     35:goto "mixtecazoom","atlas"
  44.       findTown "Tlaxiaco-Sta Marφa",294,408
  45.     36:goto "mixtecazoom","atlas"
  46.       findTown "Yucu2",614,479
  47.     37:goto "mixtecazoom","atlas"
  48.       findTown "Zahußtlßn",180,203
  49.       
  50.  end case
  51.   abort
  52. end
  53.  
  54. on findTown town, p1, p2
  55.   temp = town
  56.   if temp contains"-" then
  57.     set the itemdelimiter = "-"
  58.     cityname = word 1 of item 1 of temp
  59.   else
  60.     cityname = item 1 of temp
  61.   end if
  62.   
  63.   set the itemdelimiter = ","
  64.   fullname = town
  65.   coords = "point(" & p1 & "," & p2 & ")"
  66.   findCity coords,cityname,fullname
  67. end